home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / saverenderedas_anim.ifx.pre < prev    next >
Text File  |  2004-08-03  |  1KB  |  48 lines
  1. /*
  2.  * $VER: SaveRenderedAs_ANIM.ifx.pre 2.5 (27.02.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Save rendered image as ANIM frame.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number (?)
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. base = 'Autofx_SaveRendANIM_'
  20. seq  = WORD(ARG(1),1)
  21.  
  22. lastpath = GETCLIP(base||'Path'||seq)
  23. lastfile = GETCLIP(base||'File'||seq)
  24. lastpat  = GETCLIP(base||'Pat'||seq)
  25.  
  26. IF lastpath = "" THEN DO
  27.    GetPrefs RendPath
  28.    lastpath = result
  29.    END
  30.  
  31. RequestFile '"Save Animation File:"' '"'lastpath'"' '"'lastfile'"' '"'lastpat'"'
  32. IF rc ~= 0 THEN EXIT rc
  33.  
  34. name = result
  35.  
  36. IF EXISTS(name) THEN DO
  37.    RequestResponse name 'exists.  Overwrite?'
  38.    IF rc ~= 0 THEN EXIT rc
  39.    ADDRESS COMMAND 'Delete "'name'"'
  40.    END
  41.  
  42. CALL SETCLIP(base||'Path'||seq,filereq.path)
  43. CALL SETCLIP(base||'File'||seq,filereq.file)
  44. CALL SETCLIP(base||'Pat'||seq,filereq.pat)
  45. CALL SETCLIP(base||'Name'||seq,name)
  46.  
  47. EXIT
  48.